home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00266.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  1.1 KB  |  47 lines
  1. on mouseUp
  2.   global mucus, dayNo, correctionMade, oldstamp
  3.   if the doubleClick then
  4.     exit
  5.   end if
  6.   if the mouseH < 627 then
  7.     set x to ((the mouseH - 3) / 58) + 1
  8.     if (x > 2) and (x < 7) then
  9.       if (getAt(stamp, dayNo) = 4) or (getAt(stamp, dayNo) = 6) then
  10.         cursor(0)
  11.         alert("You chose a yellow stamp, but then a fertile mucus.  You must change either your stamp or mucus selection.")
  12.         setAt(stamp, dayNo, oldstamp)
  13.         go("Monthly stamp")
  14.         exit
  15.       else
  16.         set NewMucusNo to x
  17.       end if
  18.     else
  19.       if x = 1 then
  20.         set NewMucusNo to 10
  21.       end if
  22.       if x = 2 then
  23.         set NewMucusNo to 11
  24.       end if
  25.       if x = 7 then
  26.         set NewMucusNo to 2
  27.       end if
  28.       if x = 8 then
  29.         set NewMucusNo to 7
  30.       end if
  31.       if x = 9 then
  32.         set NewMucusNo to 8
  33.       end if
  34.       if x = 10 then
  35.         set NewMucusNo to 9
  36.       end if
  37.       if x = 11 then
  38.         set NewMucusNo to 12
  39.       end if
  40.     end if
  41.     setAt(mucus, dayNo, NewMucusNo)
  42.     set correctionMade to 1
  43.     resetMonthlyDays()
  44.     cursor(0)
  45.   end if
  46. end
  47.